home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / clipswap.zip / TEST.PRG < prev   
Text File  |  1993-04-01  |  375b  |  21 lines

  1. * test code for SWAPON and SWAPOFF in SWAP.OBJ
  2.  
  3. clear screen
  4.  
  5. if swapoff()
  6.         ? 'dosswap disabled'
  7. else
  8.         ? 'dosswap not installed'
  9.         return
  10. endif
  11. ? "Try and Swap now and all you'll get is the infamous DOSSHELL beep!"
  12. INKEY(0)
  13. if swapon()
  14.         ? 'dosswap is enabled'
  15. else
  16.         ? 'dosswap not installed'
  17.         return
  18. endif
  19. return
  20.  
  21.